49000 PRINT"[147]":POKE53280,9:POKE53281,7
49010 FORA=1TO5:PRINT:NEXT
49020 PRINTTAB(10)"[149]SCREEN DUMP UTILITY"
49030 PRINTTAB(19)"BY":PRINTTAB(12)"ALFRED J. BRUEY"
49040 PRINTTAB(12)"[144]FOR AHOY MAGAZINE"
49050 PRINTTAB(7)"(C) ION INTERNATIONAL INC."
49060 PRINTTAB(5)"[156]PRESS 'F1' TO DUMP THIS SCREEN"
49070 GETA$:IFA$<>"[133]"THEN49070
49080 GOSUB 50030
49090 PRINT"[147]":POKE53280,0:POKE53281,6:FORA=1TO8:PRINT:NEXT
49100 PRINT"  IF YOU WISH TO USE THIS UTILITY AS A  SUBROUTINE IN YOUR OWN"
49110 PRINTTAB(24)"[145]PROGRAM, REMOVE LINES 49000 TO 50030 AND THEN ADD THE"
49120 PRINT"REMAINING LINES TO YOUR OWN PROGRAM."
49130 END
50000 :
50010 REM ** SCREEN DUMP SUBROUTINE **
50020 :
50030 OPEN4,4
50040 FORI=1023 TO 2006 STEP 40
50050 PR$=""
50060 FOR J=I+1 TO I+40
50070 V=PEEK(J)
50080 IF V>127 THEN 50130
50090 IFV<=31 OR V>=96 THEN V1=V+64:GOTO50120
50100 IF V>=32 AND V<=63 THEN V1=V:GOTO 50120
50110 V1=V+128
50120 PR$=PR$+CHR$(V1):GOTO 50190
50130 IF V<=159 OR V>=224 THEN V1=V-64:GOTO 50160
50140 IF V>=192 AND V<=223 THEN V1=V:GOTO 50160
50150 V1=V-128
50160 IF LEN(PR$)=0 THEN PR$=CHR$(18)+CHR$(V1)+CHR$(146):GOTO 50190
50170 IFRIGHT$(PR$,1)<>CHR$(146)THENPR$=PR$+CHR$(18)+CHR$(V1)+CHR$(146):GOTO50190
50180 PR$=LEFT$(PR$,LEN(PR$)-1)+CHR$(V1)+CHR$(146)
50190 NEXTJ
50200 PRINT#4,PR$
50210 NEXTI:CLOSE4
50220 RETURN